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From: Harry S. White, Jr. ^ 7 ' 1 

Associate Director for ADP Standards 

Subject: Review and Comment on BSR - X3 .9 Draft Proposed ANS FORTRAN 


My memorandum of 1976 July 30 provided for your review and comment 
the draft proposed American National Standard FORTRAN (BSR - X3.9). 


I have just received the attached press release from ANSI concerning 
the review process on the draft proposal and recent changes made by 
the responsible technical standards committee (X3J3) . 


This additional material is for your information and use in preparing 
appropriate comments to the X3J3 Committee Secretary, Mr. Lloyd Campbell, 
BRL-CSD, Building 328, Aberdeen Proving Ground, Maryland 21005. 


Attachment 
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COMMITTEE CORRESPONDENCE 

American national standards committee*: Doc. No. 

X 3— Computers & Information Processing 

X 4- Office Machines & Supplies Date 

operating under the procedures of the American Netional Standards Institute Project 

Milestone 

secretariat: CBEMA, 1828 L St NW (suite 12001, Washington DC 20038 202/468-2299 

Reply to: 

PRESS RELEASE 

"FORTRAN Standards Committee Adopts IF-THEN-ELSE" 

The FORTRAN Standards Committee met in Idaho Falls, Idaho during July 12-15 
to begin reviewing public comments received on the draft proposed revised FORTRAN 
standard. The committee, also known as X3J3, is a technical committee of the 
American National Standards Institute (ANSI). 

At the meeting, X3J3 approved the addition of four new statements that 
together provide the capability to conditionally execute groups of statements. 
They are called block IF, ELSE IF, ELSE and END IF statements. The need for 
this capability was strongly presented in many of the public comments. It was 
also a lively topic of discussion at two public presentations on the draft 
standard that took place in Los Angeles in February and Washington, D.C. in 
(larch. 

X3J3 published its draft proposal in the March issue of SIGPLAN Notices, a 
publication of the Special Interest Group on Programming Languages of the 
Association for Computing Machinery. More than eight thousand copies have been 
distributed to interested individuals, and technical, business and governmental 
organizations around the world. 

The widespread interest in the proposal for a revised FORTRAN standard is 
indicated by the substantial volume of comments received. As of the beginning 
of the meeting, 200 letters had been received totaling 810 pages. The over- 
whelming majority of comments are favorable and contain many constructive 
suggestions. According to ANSI procedures, each suggestion will be evaluated to 
determine whether a change should be made to the draft standard. Following 
completion of the X3J3 review process, each public review letter will be answered 
indicating the action taken. 

X3J3 will continue its review of public comments at its next meeting in 
September. The public review and comment period closes September 28, 1976. 

Approved For Release 2002/05/17 : 

X3J3 on 1 5_July 1976) 



X3/76-70 

76-07-30 

76 

15 

X3J3 Secre tary 



Approved For Release 2002/05/17 : CIA-RDP83T00573R000600200023-2 



Bel Laboratories 


'•ubjDct FORTRAN Stand.ii’Ji'. Commi t !>■•■ Adopts 
IF-THEN-ELSE 


"■«" .Inly 22, 19/6 
J. C. Noll 


To X3J3: 

IF-THEN-ELSE was adopted at the July meeting of X3J3. The 
attached press release and IF-THEN-ELSE text Is being sent 
to you as information relating to the processing of dpANS 


Press Release 


Attached Is a press release announcing the adoption of 
IF-THEN-ELSE by X3J3- IP-THEN-ELSE was adopted for the 
FORTRAN full language and the subset language. 

IF-THEN-ELSE Text 


The principal change to the dpANS FORTRAN Is to Section 11 
CONTROL STATEMENTS. Section 11 of Document X3J3/76.3 
FORTRAN Full Language is attached. The text of the subset 
Is not attached since the IF-THEN-ELSE subset text Is 
identical to that of the full language. 

Document X3J3/76 remains the basis document for dpANS FORTRAN. 
Document X3J3/76.3 is a working document of X3J3 and is 
subject to further changes. 

Comments on dpANS FORTRAN or the new IF-THEN-ELSE text may 
be sent to: 


HO-8223-JCN-dg 

Att. 

Press Release 
X3J3/76.3 Section 11, 
CONTROL STATEMENTS 


Lloyd W. Campbell 
X3J3 Secretary 
BRL-CSD Bldg. 328 
Aberdeen Proving Ground 
MD 21005 USA 
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1 


Control srateaents may be used to control the execution 
sequence . 

There are sixteen control statements: 

(1) Unconditional GO TO 

(2) Computed GO TO 

(3) Assigned GO TO 

(4) Arithmetic IF 

(5) Logical IF 

( 6 ) Block IF 

(7) ELSE IF 

( 8 ) ELSE 

(9) END IF 

(10) DO 

(11) CONTINUE 

(12) STOP 

(13) PAUSE 

(14) END 

(15) CALL 

(16) RETURN 

CALL and RETURN statements are described in Section 15. 
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11.1 Unconditional GO TO Statement 43 

The forn of an unconditional GO TO stateaant is: 45 

GO TO i 47 

where a is the statement label of an executable stateaant 49 

that appears in the same program unit as the unconditional 50 

GO TO statement. 51 

Execution of an unconditional GO TO statement causes a 53 

transfer of control so that the statement identified by the 54 

statement label is executed next. 55 
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11.2 Computed GO TO Statement 61 

The fora of a computed GO TO stateaent is: 63 

GO TO (i [ ,i). ..)(,] £ 65 

where: ft is an integer, real, or double precision 67 
expression , 68 


1 is the statement label of an executable stateaent 70 

that appears in the same program unit as the 71 

computed GO TO statement. The same statement 72 

■ st>s ! ssy oppcoT SiOfc inofi OfiCc til the Same 73 

computed GO TO statement. 74 

Execution of a computed GO TO statement causes evaluation of 76 

the expression INT(ft). Let the value of INT(ft) be j.. The 77 

evaluation of INT(ft) is followed by a transfer of control so 78 

that the statement identified by the ith statement label in 79 

the list of statement labels is executed next, provided that 80 

1 i i i A, where n is the number of statement labels in the 81 

list of statement labels. If i<1 or i>fl, the execution 82 

sequence continues as . though a CONTINUE statement were 83 

executed. 84 


11.4 Arithmetic IF Statement 121 

The for* of an arithmetic IF statement is: 123 

IF ( t 1 i, , i, , ftj 125 

where: ft is an integer, real, or double precision 127 
expression 128 

fti. la. and la are each the statement label of an 130 
executable statement that appears in the seme 131 

same statement label may appear more than once in 133 
the same arithmetic IF statement. 134 

Execution of an arithmetic IF statement causes evaluation of 136 
the expression ft followed by a transfer of control. The 137 
statement identified by ft,, ftj , or ftj is executed next as 138 
the value of ft is less than zero, equal to zero, or greater 139 
than zero, respectively. 140 

11.5 Logical IF Statement 143 


11.3 Assigned GO TO Statement 87 

The fora of an assigned GO TO statement is: 89 

GO TO i [[,] ( i (,i)... )) 91 

where: A is an integer variable name 93 

1 is the statement label of an executable statement 95 

that appears in the same program unit as the 96 

assigned GO TO statement. The same statement 97 

label may appear more than once in the same 98 

assigned GO TO statement. 99 

At the time of execution of an assigned GO TO statement, the 101 
current value of 1 must have been assigned by the prior 102 

execution of an ASSIGN statement (10.3) to the statement 103 

label of an executable statement. The execution of the 104 
assigned GO TO statement causes a transfer of control so 105 
that the statement identified by that statement label is 106 
executed next. The last definition of the variable in an 107 

assigned GO TO statement must have occurred in the same 108 


program unit as the assigned GO TO statement. 109 

It the parenthesized list is present, the stateaent label 111 
assigned to A must be one orf the statement labels in the 112 
list. 113 
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The form of a logical IF statement is: 145 

IF ( ft ) li 147 

where: ft is a logical expression 149 

st is any executable statement except a 00, 151 

block IF, ELSE IF, ELSE, END IF, END, or another 152 

logical IF statement. 153 


Execution of a logical IF statement causes evaluation of the 155 
expression ft. If the value of ft is true, statement n is 156 
executed. If the value of ft is false, statement u is not 157 
executed end the execution sequence continues es though a 158 


CONTINUE statement were executed. 159 

Note that the execution of a function reference in the 161 

expression ft of a logical IF statement is permitted to 162 

effect entities in the statement n.. 163 

11.6 Block IF Statement 166 

The block IF statement Is used with the END IF statement 168 

and, optionally, the ELSE IF and ELSE statements to control 169 

the execution sequence. 170 

The form of a block IF statement is: 172 

IF (ft) THEN 174 

where ft is a logical expression. 176 
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11.6.1 1 F- I eve I 181 | 

The I F- 1 eve I of a statement 4 is | 
" "i 185 j 

ahere n, is the number of block IF statements from the 187 
beginning of the program unit up to and including 4 , and n, 188 
is the number of END IF statements in the program unit up to 189 
but not including j. 190 

The IF-level of every statement must be zero or positive. 197 
The IF-level of each block IF, ELSE IF, ELSE, and END IF 193 
statement must be positive. The IF-level of the END 194 


statement of each program unit must be zero. 195 | 

11.6.2 I F-B lock 197 | 

An I F-b I ock consists of all of the executable statements 199 

after the block IF statement up to, but not including, the 200 

next ELSE IF, ELSE, or END IF statement that has the SBme 201 

IF-level as the block IF statement. An IF-block may be 202 

empty. 203 

11.6.3 Execution of a Block IF Statement 205 | 

Execution of a block IF statement causes evaluation of the 207 

expression £. If the value of s. is true, normal execution 208 

sequence continues uith the first statement of the IF-block. 209 

If the IF-block is empty, control is transferred to the next 210 

END IF statement that has the same IF-level as the block IF 211 

statement. It the value of s. is false, control is 212 

transferred to the next ELSE IF, ELSE, or END IF statement 213 

that has the same IF-level as the block IF statement. 214 

Transfer into an IF-block is permitted. 216 | 

If the execution of the last statement in the IF-block does 218 

not result in a transfer of control, control is transferred 219 

to the next END IF statement that has the same IF-level as 220 

the block IF statement that precedes the IF-block. 221 

11.7 ELSE IF Statement 224 | 

The form of an ELSE IF statement is: 226 | 

ELSE IF ( 4 ) THEN 228 | 

ahere £ is a logical expression. 230 | 

11.7.1 ELSE IF-Block 232 | 


An ELSE IF-block consists of all of the executable 234 
statements after the ELSE IF statement up to, but not 235 
including, the next ELSE IF, ELSE, or END IF statement that 236 
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has the same IF-level as the ELSE IF statement. An ELSE IF- 241 I 
block may be empty. 242 | 

11.7.2 Execution of an ELSE IF Statement 244 | 

Execution of an ELSE IF statement causes evaluation of the 246 

expression 4 . If the value of 4 is true, normal execution 247 

sequence continues with the first statement of the ELSE IF- 248 

block. If the ELSE IF-block is empty, control is 249 
transferred to the next END IF statement that has the same 250 

IF-level as the ELSE IF statement. If the value of 4 is 251 

false, control is transferred to the next ELSE IF, ELSE, or 252 

END IF statement that has the same IF-level as the ELSE IF 253 

statement . 254 . 1 

Transfer into an ELSE IF-block is permitted. 256 | 

If execution of the last statement in the ELSE IF-block does 258 

not result in a transfer of control, control is transferred 259 

to the next END IF statement that has the same IF-level as 260 
the ELSE IF statement that precedes the ELSE IF-block. 261 


11.8 ELSE Statement 264 | 

The form of an ELSE statement is: 266 | 

ELSE 268 | 

11.8.1 ELSE-B I ock 270 | 

An ELSE-b I ock consists of all of the executable statements 272 

after the ELSE statement up to, but not including, the next 273 

END IF statement that has the same IF-level as the ELSE 274 

statement. An ELSE-block may be empty. 275 

An END IF statement of the same IF-level as the ELSE 277 I 

statement must appear before the appearance of an ELSE IF or 278 
ELSE statement of the same IF-level. 279 | 

11.8.2 Execution of an ELSE Statement 281 | 

Execution of an ELSE statement has no effect. Normal 283 I 

execution sequence continues. 284 | 

Transfer into an ELSE-block is permitted. 286 | 

11.9 END IF Statement 289 | 

The form of an END IF statement is: 291 | 

END IF 293 | 

Execution of an END IF statement has no effect. Noraa! 295 I 

execution sequence continues. 296 | 
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cun IF ? tatanent ■ there must be a corresponding 

can c statamant lf i the saae program unit. A correspond i no 
IE ilsiefflaat is the ne»t. ENO IF statement thl t has the 
same IF level as the block If statement. 


A 00 statement is used to specify a loop, called a DO-Innn 


The form of a DO statement isi 


DO i [,] i s 4 . [,£,] 


where: s is the statement labs! cf & . executable 
statement. The statement identified by s, celled 
the liounal Statement of the DO- loop, must 
physically follow and appear in the same program 
unit as the DO statement. 


is the name of an integer, 
precision variable, called the 


&i* £.3. and £.3 are each an integer, real, or double 
precision expression. 


The terminal statement of a DO-loop must not be an 
unconditional GO TO, assigned GO TO, arithmetic IF 
block IF, ELSE IF, ELSE, ENO IF, RETURN, STOP. ENO, or 00 ' 
statement. If the terminal statement of a DO-loop is a 


f 1 * consists of the executable statements 

n n nd lnc| P£fing the first executable statement following 
the 00 statement that specifies the DO-loop, to and 
including the terminal statement of the DO-loop 


If a DO statement appears within the range of a DO-loop. the 
range of the DO-lopp specified by that DO statement must be 
within the range of the outer DO-loop. More than one DO- 
loop may have the same terminal statement. 


I! %^c S ^ te r nt ? PBear5 a " IF-block, ELSE IF-block. 

or tLSt block, the range of that DO-loop must be contained 
entirely within that IF-block., ELSE IF-block, or ElSE-block 
respectively. ' 


If a block IF statement appears within the range of a DO- 
loop, the corresponding END IF statement must also appear 
within the range of that DO-loop. 


FORTRAN/76 Full Language X3J3/76.3 (76-07-19) 


Approved For Release 2002/05/17 : C 




Approved For Release 2002/05/17 : CIA-RDP83T00573R000600200023-2 


Page 11-8 CONTROL STATEMENTS 


CONTROL STATEMENTS Page 11-9 


a, > a a and Si > 0, or 421 

I, < flj and ij < 0. 423 

At the completion of execution of the 00 stateaent, loop 425 
control processing begins. 426 

11.10.4 Loop Control Processing 428 | 

Loop control processing determines if further execution of 430 

the range of the 00-loop is required. The iteration count is 431 

tested. If it is not zero, execution of the first stateaent 432 
in the range of the 00-loop begins. If the iteration count 433 

is zero, the 00-loop becomes inactive. If, as a result, all 434 


of the DO-loops sharing the terminal statement of this DO- 435 
loop are inactive, normal execution continues with execution 436 
of the next executable statement following the terminal 437 
statement. However, if some of the DO-loops sharing the 438 
terminal statement are active, execution continues with 439 


incrementation processing, as described below. 440 

11.10.5 Execution of the Range 442 | 

Statements in the range of a 00-loop are executed until the 444 

terminal statement is reached. Except by the incrementation 445 

described in 11.10.7, the DO-variable of the DO-loop may 446 | 

neither be redefined nor become undefined during execution 447 
of the range of the DO-loop. 448 

11.10.6 Terminal Statement Execution 450 | 


Execution of the terminal stateaent occurs as a result of 452 

the normal execution sequence or as a result of transfer of 453 

control, subject to the restrictions in 11.10.8. Unless 454 | 

execution of the terminal statement results in a transfer of 455 

control, execution then continues with incrementation 456 
processing, as described below. 457 

11.10.7 Incrementation Processing 459 | 


An example illustrates the above: 481 

N = 0 483 

DO 100 1=1,10 484 

J=I 485 

DO 100 K=1,5 486 

L=K 487 

100 N = N*1 488 

101 CONTINUE 489 

After execution of the above statements end at the execution 491 

of the CONTINUE statement, 1=11, J=10, <=6, L=5, and N=50. 492 

.Also consider the following example: 494 

N=0 496 

DO 200 1=1,10 497 

J=I 498 

DO 200 K=5 , 1 499 

L=K 500 

200 N=N+ 1 501 

201 CONTINUE 502 

After execution of the above statements and at the execution 504 

of the CONTINUE statement, 1 = 11, J = 1 0 , K = 5, and N = 0. L is 505 

not defined by the above statements. 506 

11.10.8 Transfer into the Ranoe of a DQ-Loop 508 

Transfer of control into the range of an inactive DO-loop is 510 
not permitted. Transfer of control to any executable 511 
statement in the range of an active 00-loop is permitted 512 
unless the statement is also in the range of an inactive DO- 513 
loop. 514 


11.11 CONTINUE Statement 517 

The form of a CONTINUE statement is: 519 


Incrementation processing has the effect of the following 461 
steps performed in sequence: 462 

(1) The 00-variable, and the incrementation parameter of 464 

the active DO-loop whose DO statement was most 465 

recently executed, are selected for processing. 466 

(2) The value of the DO-variable is incremented by the 468 

value of the incrementation parameter . 469 

(3) The iteration count is decremented by one. 471 

(4) Execution continues with oop control processing 473 

(11.10 4 of the same DO-loop whose iteration count 474 | 

was decremented. 475 


CONTINUE 521 

Execution of a CONTINUE stateaent has no effect. 523 

If the CONTINUE statement is not the terminal statement of a 525 
00-loop, normal execution sequence continues. If the 526 
CONTINUE statement is the terminal statement of a DO-loop. 527 
the next statement executed depends on the result of the DO- 528 
loop incrementation processing (11.10.7). 529 

11.12 STOP Statement 532 

The form of a STOP statement is: 534 

STOP [fl] 536 
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Hhere £L is a string of not aore than five digits, or is a 541 
character constant. 542 

Execution of a STOP stateaent causes terainetion of 544 
execution of the executable prograa. At the time of 545 
teraination, the digit string or character constant is 546 
accessible. 547 


H.13 PAUSE Stateaent 550 | 


The form of a PAUSE stateaent is: 552 

PAUSE Cn] 55 / 

"here a is a string of not aore than five digits, or is a 556 
character constant. 557 

Execution of a PAUSE stateaent causes a cessation of 559 
execution of the executable prograa. Execution must be 560 
resuaable. At the tiae of cessation of execution, the digit 561 
string or character constant is accessible. Resuaption of 562 
execution is not under control of the prograa. If execution 563 
is resuaed, the noraal execution sequence is continued. 564 


11.14 END Stateaent 567 | 

The END stateaent indicates the end of the sequence of 569 

stateaents and comaent lines of a prograa unit (3.5). If 570 

executed in a subprogram It has the effect of a RETURN 571 

stateaent (15.8). If executed in a aein prograa, it 572 

terainates the execution of the executable prograa. 573 

The fora of an END stateaent is: 575 

END 577 

An END stateaent is written only in coluans 7 through 72 of 579 

en initial line. An END stateaent aust not be continued. 580 

No other stateaent in a prograa unit aay have an initial 581 

line that appears to be an END stateaent. 582 

The last line of every prograa unit aust be an END 584 

stateaent. 535 
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